home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NBV2
/
DMO
/
B_GRID.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
3KB
|
39 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME B_GRID .DMO ║ by ╘════════════════─ ║ ║
│ │ LIBRARY ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
'┌───────────────────────
$INCLUDE "DAS-NB01.INC" '│
$INCLUDE "DAS-NBV1.INC" '│
$INCLUDE "DAS-NBV2.INC" '│
'│
CLS '│ get the VGA screen
SCREEN 12 '│ set-up
GraphicSETUP '│
fLoadDAScolor '│ load 3D color system
'│
GBoxGRID 0, 0, 200, 200, 0, 15, 10, 10 '│ black solid lines
'│
GBoxGRID 300, 0, 500, 200, &h5555, 10, 10, 10 '│ dk.Grey dotted lines
GLineDRAW 400, 0, 400, 200, 0, 3, 15 '│ black solid line
GLineDRAW 300, 100, 500, 100, 0, 3, 15 '│ black solid line
'│
WHILE NOT INSTAT : WEND '│ a clean exit
CLS : PALETTE : SCREEN 0 : END '│
'└───────────────────────